Word Play Farm/Word Play Farm.iso/pc/movies/shared.dxr/00536.ls

Text File | 1996-07-29 | 3.4 KB | 143 lines

on dslv
  if not (the optionDown) then
    puppetTransition(23, 2, 0, 0)
  end if
end

on wipeR
  if not (the optionDown) then
    puppetTransition(1)
  end if
end

on wipeL
  if not (the optionDown) then
    puppetTransition(2)
  end if
end

on nav direction
  global directionCast
  set margin to 30
  if (direction contains "l") and (the mouseH < margin) and (the mouseV <= (the stageBottom - the stageTop - margin)) then
    set directionCast to the number of cast "pointLeft"
    set directionMask to the number of cast "pointLeft mask"
  else
    if (direction contains "r") and (the mouseH > (the stageRight - the stageLeft - margin)) and (the mouseV >= margin) then
      set directionCast to the number of cast "pointRight"
      set directionMask to the number of cast "pointRight mask"
    else
      if (direction contains "u") and (the mouseV < margin) and (the mouseH <= (the stageRight - the stageLeft - margin)) then
        set directionCast to the number of cast "pointUp"
        set directionMask to the number of cast "pointUp mask"
      else
        if (direction contains "d") and (the mouseV > (the stageBottom - the stageTop - margin)) then
          set directionCast to the number of cast "pointDown"
          set directionMask to the number of cast "pointDown mask"
        else
          if (the mouseV < margin) and (the mouseH > (the stageRight - the stageLeft - margin)) then
            set directionCast to the number of cast "questionMark"
            set directionMask to the number of cast "questionMark mask"
          else
            set directionCast to 0
            set directionMask to 0
          end if
        end if
      end if
    end if
  end if
  cursor([directionCast, directionMask])
end

on helpMe
  global helpTxt
  put helpTxt into field "helpFld"
  set helpLen to length(helpTxt) * 10
  set offset to 640 - helpLen
  repeat while the mouseDown
    set the locH of sprite the clickOn to offset
    updateStage()
  end repeat
  set the locH of sprite the clickOn to 600
  updateStage()
end

on rollOrb sprt
  if rollOver(sprt) then
    set the movieRate of sprite sprt to 1
    updateStage()
  else
    set the movieRate of sprite sprt to 0
  end if
end

on btnRollover first, last
  repeat with which = first to last
    if rollOver(which) then
      set whichName to the name of cast the castNum of sprite which
      if (whichName contains "Lit") or (whichName contains "Down") then
        nothing()
      else
        puppetSprite(which, 1)
        set the castNum of sprite which to the castNum of sprite which + 1
        updateStage()
        repeat with off = first to last
          if off <> which then
            puppetSprite(off, 0)
          end if
        end repeat
      end if
      exit repeat
      next repeat
    end if
    puppetSprite(which, 0)
    updateStage()
  end repeat
end

on wait secs
  startTimer()
  repeat while the timer < ((secs * 60) - 1)
  end repeat
end

on wind
  if not soundBusy(4) then
    updateStage()
  end if
end

on timeout
  set the timeoutLapsed to 0
end

on countTime
  startTimer()
  repeat while the timer < 20
    nothing()
  end repeat
end

on holdSound
  updateStage()
  repeat while soundBusy(1)
    nothing()
  end repeat
end

on soundDown
  repeat with t = 7 down to 0
    set the soundLevel to t
    updateStage()
    countTime()
  end repeat
end

on soundUp
  repeat with t = 0 to 7
    set the soundLevel to t
    updateStage()
    countTime(1)
  end repeat
end